;:sys36864
	;.opt oo
	*= 24576
bank	=1
low	=$8000
open	=$ffc0
close	=$ffc3
setnam	=$ffbd
setpar	=$ffba
clrchn	=$ffcc
chkin	=$ffc6
tmp	=2
strout	=$ab1e
get	= 65508
	lda #<trost
	ldy #>trost
	jsr strout
	ldx #<name
	ldy #>name
	lda #trost-name
	jsr setnam
	lda #2
	ldx #8
	tay
	jsr setpar
	jsr open
	ldx #2
	jsr chkin
	lda #<low
	sta tmp
	jsr get
	lda #>low
	sta tmp+1
	jsr get
weiter	jsr get
	ldx #48
	sei
	stx bank
	ldy #0
	sta (tmp),y
	ldx #55
	stx bank
	cli
	inc tmp
	bne weiter
	inc tmp+1
	bne weiter
	jsr clrchn
	lda #2
	jsr close
; ab hier oldfox
	lda #0
	sta 53281
	lda #6
	sta 53280
	lda #3
	sta 122
	lda #1
	sta 123
	lda #15
	sta 53
	ldx #13
loop	lda tab,x
	sta 43,x
	dex
	bpl loop
	ldx #161
	ldy #60
	stx 81
	sty 82
	stx 83
	sty 84
	lda #1
	sta 85
	sta 86
x626	ldy #0
	lda (83),y
	beq x668
	cmp #1
	bne x638
	inc 86
x638	cmp #32
	bcs x646
	cmp #14
	bcs x668
x646	cmp #146
	bcs x668
	ldx 83
	ldy 84
	inx
	bne x658
	iny
x658	cpy #92
	bcs x668
	stx 83
	sty 84
	bcc x626
x668	lda #0
	tay
	sta 15520
	sta (83),y
	sta 830
	sta 863
	jmp 7040
tab	.word 44544,35840,0,0,0,44559,35840,0
name	.byte "gesamtbild...,p,r"
trost	.byt 13
	.byte "speicherbereich $8000 - $ffff wird ge-"
	.byt 13
	.byte "laden... bitte geduld..."
	.byt 13,0